Shareware Grab Bag/Shareware Grab Bag.iso/007/tbbyte.arc/NEWDRIVE.PAS

Pascal/Delphi Source File | 1985-08-14 | 256b | 7 lines

procedure log_new_drive(ch:char);
begin
  drv := ord(ch) - ord('A');
  r.dx := drv;
  r.ax := $e shl 8;            { Log a new drive as the default }
  msdos(R);
end;